home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00011_Script_HSB Shifter < prev    next >
Text File  |  1997-09-30  |  2KB  |  64 lines
  1. -- HSB Shifter
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property Hue,Sat,Brt
  8.  
  9. on getPropertyDescriptionList
  10.   if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.   set pList=[:]
  13.   addProp pList,#Hue,[format:#integer,comment:"Hue (degrees):",¼
  14.                       Default:0,range:[min:-180,max:180]]
  15.   addProp pList,#Sat,[format:#integer,comment:"Saturation %:",¼
  16.                       Default:0,range:[min:-255,max:255]]
  17.   addProp pList,#Brt,[format:#integer,comment:"Brightness %:",¼
  18.                       Default:0,range:[min:-255,max:255]]
  19.   return pList
  20. end
  21.  
  22. on beginSprite me
  23.   set s=the spriteNum of me
  24.   if not alphaManiac(s) then exit
  25.   
  26.   hsb(sprite s,[hueShift:hue,satShift:Sat,brightShift:Brt])
  27. end
  28.  
  29. on slideHue me, slider, p
  30.   set s=the spriteNum of me
  31.   if not alphaManiac(s) then exit
  32.   
  33.   set Hue=(p*360) / 100
  34.   hsb(sprite s,[forceHue:hue])
  35. end 
  36.  
  37. on slideSat me, slider, p
  38.   set s=the spriteNum of me
  39.   if not alphaManiac(s) then exit
  40.   
  41.   set Hue=(p*255) / 100
  42.   hsb(sprite s,[forceSat:Sat])
  43. end 
  44.  
  45. on slideBright me, slider, p
  46.   set s=the spriteNum of me
  47.   if not alphaManiac(s) then exit
  48.   
  49.   set Hue=(p*255) / 100
  50.   hsb(sprite s,[forceBright:Brt])
  51. end
  52.  
  53. on getBehaviorDescription me
  54.   set msg= "Use this simple shifter to adjust the color values of any AlphaMania Sprite."
  55.   put return & return after msg
  56.   put "Parameters:" & return & "-----------" & return  after msg
  57.   put "* Hue (degrees):  Shift the hue (0 to 360)" & return after msg
  58.   put "*  Saturation %:  Adjust the saturation (color)" & return after msg
  59.   put "*  Brightness %:  Adjust the brightness" after msg
  60.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  61.   return msg
  62. end
  63.  
  64.